﻿Public Class BewegungsboniTabelleHovercraft_1
    Inherits BewegungsboniTabelle
    Public Overrides Function GetWert(ByVal Name As String) As Integer
        Dim E As ObjektEinheit = GetUnit(Name)
        Select Case E.Bewegungsart.ToUpper
            Case MovementSorts.Flugzeug.ToString.ToUpper
                Return 0
            Case MovementSorts.Helikopter.ToString.ToUpper
                Return 0
            Case MovementSorts.Transport.ToString.ToUpper
                Return 0
            Case MovementSorts.Schiff.ToString.ToUpper
                Return 0
            Case MovementSorts.Fuß.ToString.ToUpper
                Return 0
            Case MovementSorts.Mech.ToString.ToUpper
                Return 0
            Case MovementSorts.Höllium.ToString.ToUpper
                Return 0
            Case MovementSorts.Amphibie.ToString.ToUpper
                Return 1
            Case MovementSorts.Ketten.ToString.ToUpper
                Return 0
            Case MovementSorts.Reifen.ToString.ToUpper
                Return 0
            Case MovementSorts.Motorreifen.ToString.ToUpper
                Return 0
            Case Else
                Return 0
        End Select
    End Function
End Class
